home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / AD.MENU.bas < prev    next >
BASIC Source File  |  2003-06-12  |  712b  |  19 lines
  1. 10  REM AD.MENU
  2. 15  DIM A$(10):D$ =  CHR$(4)
  3. 20  TEXT : HOME : SPEED= 255
  4. 30  HTAB 14: INVERSE : PRINT " AD.MENU ": NORMAL 
  5. 1000 I = 0
  6. 1010 I = I +1: IF I >9 GOTO 1200
  7. 1020  READ A$(I): IF A$(I) = "END" GOTO 1200
  8. 1030  PRINT : HTAB 01: PRINT I;" = ";A$(I): GOTO 1010
  9. 1200  VTAB 23: INVERSE : PRINT "G=GOBACK  S=START OVER  ";
  10. 1210  IF A$(I) < >"END"  THEN  PRINT "M=MORE ";
  11. 1220  NORMAL : VTAB 21: HTAB 1: GET R$: PRINT R$
  12. 1225  IF R$ = "M"  AND A$(I) < >"END"  THEN 20
  13. 1230  IF R$ = "S"  THEN  RESTORE : GOTO 20
  14. 1240  IF R$ = "G"  THEN  PRINT D$"RUN SOFT.ADS"
  15. 1250 R =  INT( VAL(R$)): IF R >0  AND R <I  THEN  PRINT D$"RUN AD.";A$(R)
  16. 1260  GOTO 1200
  17. 5000  DATA  "SPARKEE"
  18. 5010  DATA "PSOFTWARE"
  19. 9999  DATA "END"